SuperModels in the Rainforest/SuperModels in the Rainforest.iso/rain.dxr/00235.ls

Text File | 1995-10-13 | 1.3 KB | 58 lines

on exitFrame
  global spriteloo, gobackto, rainy
  set rainy to 1
  set gobackto to the frame
  repeat with x = 26 to 29
    if rollOver(x) then
      set the cursor of sprite x to [561, 562]
    end if
  end repeat
  if rollOver(23) then
    set the cursor of sprite 23 to [561, 562]
  end if
  if rollOver(3) then
    set the cursor of sprite 3 to [563, 564]
  end if
  repeat with x = 5 to 9
    if rollOver(x) then
      set the cursor of sprite x to [561, 562]
    end if
  end repeat
  set the cursor of sprite 9 to [569, 570]
  repeat with x = 5 to 9
    if rollOver(x) then
      set the visible of sprite x to 1
      next repeat
    end if
    set the visible of sprite x to 0
  end repeat
  repeat with x = 23 to 29
    if rollOver(x) then
      set the visible of sprite x to 1
      next repeat
    end if
    set the visible of sprite x to 0
  end repeat
  go(the frame)
end

on keyDown
  set moviemovie to the castNum of sprite 3
  set the sound of cast moviemovie to 0
  if the keyCode = 123 then
    set the movieRate of sprite 3 to -1
  else
    if the keyCode = 124 then
      set the movieRate of sprite 3 to 1
    end if
  end if
end

on keyUp
  set moviemovie to the castNum of sprite 3
  set the sound of cast moviemovie to 1
  if ((the keyCode = 123) or (the keyCode = 124)) and 3 then
    set the movieRate of sprite 3 to 0
  end if
end